home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / scroller.ifx < prev    next >
Text File  |  2004-08-03  |  2KB  |  95 lines
  1. /*
  2.  * $VER: Scroller 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Create an animation consisting of a vertical crawl of text
  8.  * going up the screen.
  9.  * The animation is saved to "RAM:Test.anim".
  10.  *
  11.  */
  12.  
  13. /*
  14.  * Scroll some text up the screen.
  15.  *
  16.  */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. IF EXISTS('ram:Test.anim') THEN
  21.    ADDRESS COMMAND 'Delete RAM:Test.anim'
  22.  
  23. width = 640
  24. height = 400
  25.  
  26. /* Text of the crawl.  text.0 = number of lines.  text.1 .. text.N
  27.    is the actual lines of the text, each will be centered. */
  28. text.0  = 15
  29. text.1  = "Amiga Icon"
  30. text.2  = "ANIM"
  31. text.3  = "DPIIE"
  32. text.4  = "GIF"
  33. text.5  = "HAM-E"
  34. text.6  = "ILBM"
  35. text.7  = "Impulse"
  36. text.8  = "JPEG"
  37. text.9  = "PCX"
  38. text.10 = "PBM"
  39. text.11 = "Rendition"
  40. text.12 = "Sculpt"
  41. text.13 = "Targa"
  42. text.14 = "TIFF"
  43. text.15 = "Clipboard"
  44.  
  45.  
  46. CreateBuffer Force width height Grey
  47. EdgeMode AntiAlias
  48.  
  49. Render Mode Hires Lace
  50. Render Dither 0 0 0
  51. Render Colors 4
  52.  
  53. top = height
  54. ysize = 80
  55. spacing = 160
  56. scroll = 15
  57. frames = ((text.0+2) * spacing) % scroll
  58.  
  59. Undo Off ; Redraw Off
  60.  
  61. DO i = 1 TO frames
  62.  
  63.    Message 'Frame' i 'of' frames
  64.  
  65.    Render Close
  66.  
  67.    ClearBuffer 0 0 0 Force
  68.  
  69.    LockGUI
  70.    DO l = 1 TO text.0
  71.       x = width%2
  72.       y = (top+(l-1)*spacing)
  73.       IF y+ysize < 0 THEN ITERATE
  74.       Text "CGTriumvirate.font" ysize 100 text.l
  75.       GetBrush ; IF result = "" THEN LEAVE
  76.       PARSE VAR result name bw bh .
  77.       BrushHandle YOFFSET 0
  78.       Point x y
  79.       KillBrush
  80.       IF y > height THEN LEAVE
  81.       END
  82.  
  83.    UnlockGUI
  84.    Render Go
  85.    SaveRenderedAs ANIM 'ram:Test.anim' Keep Append
  86.  
  87.    top = top - scroll
  88.  
  89.    END
  90.  
  91. SaveRenderedAs ANIM 'ram:Test.anim' Close
  92. Render Close
  93.  
  94. Redraw On ; Undo On
  95.